home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 1 / Cream of the Crop 1.iso / PROGRAM / UCRASM25.ARJ / STRICMP.ASM < prev    next >
Assembly Source File  |  1991-10-12  |  2KB  |  109 lines
  1. StdGrp        group    StdLib, StdData
  2. ;
  3. StdData        segment    para public 'sldata'
  4.         extrn    $uprtbl:byte
  5. StdData        ends
  6. ;
  7. stdlib        segment    para public 'slcode'
  8.         assume    cs:StdGrp
  9. ;
  10. ;
  11. ; stricmp- Compares two strings, ignoring differences in case.
  12. ;
  13. ; inputs:
  14. ;
  15. ;    es:di-    First string (The string to compare)
  16. ;    dx:si-    Second string (The string to compare against)
  17. ;
  18. ;    e.g.,
  19. ;        "if (es:di < dx:si) then ..."
  20. ;
  21. ; returns: 
  22. ;
  23. ;    cx- index into strings where they differ (points at the zero byte
  24. ;        if the two strings are equal).
  25. ; 
  26. ;    Condition codes set according to the string comparison.  You should
  27. ;    use the unsigned branches (ja, jb, je, etc.) after calling this
  28. ;    routine.
  29. ;
  30.         public    sl_stricmp
  31. ;
  32. sl_stricmp    proc    far
  33.         push    es
  34.         push    ds
  35.         push    bx
  36.         push    ax
  37.         push    si
  38.         push    di
  39.         xchg    di, si
  40.         mov    ax, es
  41.         mov    ds, ax
  42.         mov    es, dx
  43.         xor    cx, cx        ;Set initial index to zero.
  44.         lea    bx, stdgrp:$uprtbl
  45. ;
  46. ; In order to preserve the direction flag across this call, we have to
  47. ; test whether or not it is set here and execute two completely separate
  48. ; pieces of code (so we know which state to exit in.  Unfortunately, we
  49. ; cannot use pushf to preserve this flag since we need to return status
  50. ; info in the other flags.
  51. ;
  52.         pushf
  53.         pop    ax
  54.         test    ah, 4        ;Test direction bit.
  55.         jnz    DirIsSet
  56. sclp:        lodsb
  57.         xlat    StdGrp:$uprtbl
  58.         mov    ah, al
  59.         mov    al, es:[di]
  60.         xlat    StdGrp:$uprtbl
  61.         cmp    ah, al        
  62.         jne    scNE        ;If strings are <>, quit.
  63.         inc    cx            ;Increment index into strs.
  64.         inc    di        ;Incrment str2 ptr.
  65.         cmp    al, 0        ;Check for end of strings.
  66.         jne    sclp
  67.         pushf
  68.         dec    cx
  69.         popf
  70. ;
  71. scNE:        pop    di
  72.         pop    si
  73.         pop    ax
  74.         pop    bx
  75.         pop    ds
  76.         pop    es
  77.         ret            ;Return with direction flag clear.
  78. ;
  79. ;
  80. DirIsSet:    lodsb
  81.         xlat    StdGrp:$uprtbl
  82.         mov    ah, al
  83.         mov    al, es:[di]
  84.         xlat    StdGrp:$uprtbl
  85.         cmp    ah, al
  86.         jne    scNE2         ;If strings are <>, quit.
  87.         inc    cx
  88.         inc    di
  89.         cmp    al, 0         ;Check for end of strings.
  90.         jne    DirIsSet
  91.         pushf
  92.         dec    cx
  93.         popf
  94. ;
  95. scNE2:        pop    di
  96.         pop    si
  97.         pop    ax
  98.         pop    bx
  99.         pop    ds
  100.         pop    es
  101.         std            ;Return with direction flag set.
  102.                 ret
  103.  
  104. sl_stricmp    endp
  105. ;
  106. ;
  107. stdlib        ends
  108.         end
  109.